Multimedia Dogs/Multimedia Dogs v2.0.iso/mac/Extras/MMDogs 2.0 with Desktop/MIAW.DXR/00012_Video handlers.ls

Text File | 1995-10-09 | 620 b | 25 lines

global gpMiawVideoSprite, gpMiawVideoCastnum

on doPlayVideo theFilename, theTitle
  set gpMiawVideoSprite to 4
  set gpMiawVideoCastnum to the number of cast "VideoPlaceholder.mov"
  set the fileName of cast gpMiawVideoCastnum to theFilename
  set the text of cast "VideoTitle" to theTitle
  go("vplay")
end

on enterVideo
  puppetSprite(gpMiawVideoSprite, 1)
  set the castNum of sprite gpMiawVideoSprite to gpMiawVideoCastnum
  updateStage()
  set the movieRate of sprite gpMiawVideoSprite to 1
end

on handleVideoDone
  set gpCursorState to #waitAuto
  cursor(4)
  tell the stage
    closeVideoMIAW()
  end tell
end